unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  Sub;

type
  TMainForm = class(TForm)
    ButtonDataType: TButton;
    ButtonOperator: TButton;
    ButtonFlow: TButton;
    procedure ButtonDataTypeClick(Sender: TObject);
    procedure ButtonSubClick(Sender: TObject);
    procedure ButtonOperatorClick(Sender: TObject);
    procedure ButtonFlowClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;


implementation

uses DataType,uOperator,uFlow;

{$R *.dfm}

procedure TMainForm.ButtonFlowClick(Sender: TObject);
begin
  uFlow.FormFlow.Show;
end;

procedure TMainForm.ButtonOperatorClick(Sender: TObject);
begin
  FormOperator.Show;
end;

procedure TMainForm.ButtonSubClick(Sender: TObject);
begin
  SubForm.Show;
end;

procedure TMainForm.ButtonDataTypeClick(Sender: TObject);
var
  str : String;
begin
  FormDataType.Show;
end;

Initialization
begin
  //ShowMessage('Hello World');
end;

end.
